home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / SCRIPTZ / HOPATCH.ZIP / Aliases.ini next >
INI File  |  1997-02-20  |  28KB  |  703 lines
  1. [Commands]
  2. n0=5:PAGE:/wavplay $mircdir $+ wavs\page.wav | .ignore -tu30 $nick 4
  3. [Aliases]
  4. n0=/op /mode # +ooo $$1 $2 $3
  5. n1=/dop /mode # -ooo $$1 $2 $3
  6. n2=/j /join #$$1
  7. n3=/p /part #
  8. n4=/n /names #$$1
  9. n5=/w /whois $$1
  10. n6=/k /kick # $$1
  11. n7=/q /query $$1
  12. n8=/lagtest /.ctcp $me PING
  13. n9=/F10 /ignore -n *!*@*
  14. n10=/F11 /ignore -p *!*@*
  15. n11=/F12 /ignore -t *!*@*
  16. n12=/sF12 /ignore -r *!*@*
  17. n13=/F9 /sF12 | /disable #nodcc | /echo 4 %echo Shutdown DISABLED! | /timer77 off
  18. n14=/inflood /next | /inc %floods 1 | /timer 3 3 /beep 9 9 | /echo 4 $active %echo FLOOD DETECTED! | /echo 4 $active %echo SUSPECT -- %flooder2 -- %flooder | /echo 4 %echo ░HφgH ╓rdΩR░ has detected a flood.
  19. n15=/next /F12 | /F11 | /enable #PrivateFloodProt | /enable #nodcc | /timer77 0 10 /echo 4 $active * YOU ARE IGNORING ALL CTCP'S (Hit F9) -- %flooder
  20. n16=rmid %r = $r(1,3) | if (%r = 1) { %mid = one.mid } | if (%r = 2) { %mid = dethtoll.mid } | if (%r = 3) { %mid = convert.mid } | splay %mid
  21. n17=}
  22. n18=/order {
  23. n19=if %setup != 1 goto setup
  24. n20=if $2 != $null goto eh
  25. n21=goto letsgo
  26. n22=:setup
  27. n23=mode $me +i
  28. n24=set %path $?="What is the path to ░HφgH ╓rdΩR░"
  29. n25=if $right($len(%path),%path) != \ { set %path %path $+ \ }
  30. n26=set %rapturepath %path $+ order.txt
  31. n27=set %setup 1
  32. n28=:letsgo
  33. n29=/play -ctTitle $me %path $++ order.txt 0
  34. n30=halt
  35. n31=:eh
  36. n32=if %setup == 1 { set %temp $?="Are you sure?" }
  37. n33=if %temp != YES { echo 6 # Setup cancelled. | halt }
  38. n34=if %temp == YES { goto setup }  
  39. n35=}
  40. n36=/nickaway {
  41. n37=if AWAY isin $me { goto changeback }
  42. n38=set %away $me
  43. n39=set %away2 $me
  44. n40=set %temp $len(%away)
  45. n41=if %temp > 5 goto ohcrap
  46. n42=nick $me $+ AWAY
  47. n43=halt
  48. n44=:ohcrap
  49. n45=set %temp $len(%away)
  50. n46=dec %temp 5
  51. n47=set %away $remove(%away,$right(%temp,%away))
  52. n48=nick %away $+ AWAY
  53. n49=halt
  54. n50=:changeback
  55. n51=nick %away2
  56. n52=}
  57. n53=fs {
  58. n54={ say ░HφgH ╓rdΩR░ is searching for %scan $+ 's on $chan } 
  59. n55=set %count 0
  60. n56=if %victim ison $chan { inc %count | say %count %scan found! 4APPROCH WITH EXTREME CAUTION!!!1 $+ : %victim $address(%victim,1) | say %scan search over. There was %count %scan found. | halt }
  61. n57=if %victim !ison $chan { say %scan search found no %scan $+ 's }  
  62. n58=if (%lamer == $null) { say %scan search found no %scan $+ 's }
  63. n59=}
  64. n60=date {
  65. n61=%zero = $chr(48)
  66. n62=set %time $time
  67. n63=if ($token(1,58,%time) > 12) { goto dopm }
  68. n64=if ($token(1,58,%time) == 0) { goto midnight }
  69. n65=else {
  70. n66=  %time = $token(1,58,$time) $+ : $+ $token(2,58,$time) $+ AM
  71. n67=  goto date
  72. n68=}
  73. n69=:midnight
  74. n70=%time = $token(1,58,%time)
  75. n71=inc %time 12
  76. n72=%time = %time $+ : $+ $token(2,58,$time) $+ AM
  77. n73=goto date
  78. n74=:dopm
  79. n75=%time = $token(1,58,%time)
  80. n76=dec %time 12
  81. n77=%time = %time $+ : $+ $token(2,58,$time) $+ PM
  82. n78=goto date
  83. n79=:date
  84. n80=%date = $adate
  85. n81=titlebar with ░HφgH ╓rdΩR░ - $+ %time $+ - $+ $day $+ , %date $+ - $+ $me $+ - $+ $server $+ - $+  $port $+ - $+ $host $+
  86. n82=}
  87. n83=acol {
  88. n84=%ccodes = ^1,^2,^3,^4,^5,^6,^7,^8,^9,^10,^11,^12,^13,^14,^15 | %tcc = 1 | %s_len = $len(*1) | %s_cnt = 1
  89. n85=writeini textman.ini COL coltxt $token(%tcc,44,%ccodes) $+ [ $mid(%s_cnt,1,*1) ] $+ $token(%tcc,44,%ccodes)
  90. n86=inc %s_cnt | inc %tcc
  91. n87=:up
  92. n88=if ($asc($mid(%s_cnt,1,*1)) == 32) writeini textman.ini COL coltxt [ $readini textman.ini COL coltxt ] $+ `
  93. n89=else writeini textman.ini COL coltxt [ $readini textman.ini COL coltxt ] $+ $token(%tcc,44,%ccodes) $+ [ $mid(%s_cnt,1,*1) ] $+ $token(%tcc,44,%ccodes)
  94. n90=inc %s_cnt | inc %tcc
  95. n91=if %s_len < %s_cnt { goto done }
  96. n92=if %tcc > 15 { %tcc = 1 }
  97. n93=goto up
  98. n94=:done
  99. n95=%coltxt = $readini textman.ini COL coltxt
  100. n96=%coltxt = $replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace(%coltxt,`,$chr(32)),^1,1),^2,2),^3,3),^4,4),^5,5),^6,6),^7,7),^8,8),^9,9),^10,10),^11,11),^12,12),^13,13),^14,14),^15,15)
  101. n97=unset %s_len %s_cnt %ccodes %tcc
  102. n98=}
  103. n99=/brick { %num = 1 | unset %msg  | %msg =  | %color = p
  104. n100=:start
  105. n101=if %color == p { %num2 = 15 | %num3 = 12 | %color = y | goto add }
  106. n102=if %color == y  { %num2 = 12 | %num3 = 15 | %color = p | goto add }
  107. n103=:add
  108. n104=if $mid(%num,1, *1) != $null {
  109. n105=  %msg = %msg $+   $+ %num2 $+ , $+  %num3 $+  $mid(%num, 1,*1) $+   
  110. n106=  inc %num 
  111. n107=goto start  }
  112. n108=say %msg
  113. n109=}
  114. n110=/ht {
  115. n111=set %rk *1
  116. n112=%rk = $replace(%rk,a,σ)
  117. n113=%rk = $replace(%rk,b,▀)
  118. n114=%rk = $replace(%rk,c,⌐)
  119. n115=%rk = $replace(%rk,d,╨)
  120. n116=%rk = $replace(%rk,e,Ω)
  121. n117=%rk = $replace(%rk,f,f)
  122. n118=%rk = $replace(%rk,g,g)
  123. n119=%rk = $replace(%rk,h,h)
  124. n120=%rk = $replace(%rk,i,∩)
  125. n121=%rk = $replace(%rk,j,j)
  126. n122=%rk = $replace(%rk,k,K)
  127. n123=%rk = $replace(%rk,l,ú)
  128. n124=%rk = $replace(%rk,m,m)
  129. n125=%rk = $replace(%rk,n,±)
  130. n126=%rk = $replace(%rk,o,≡)
  131. n127=%rk = $replace(%rk,p,■)
  132. n128=%rk = $replace(%rk,q,q)
  133. n129=%rk = $replace(%rk,r,«)
  134. n130=%rk = $replace(%rk,s,º)
  135. n131=%rk = $replace(%rk,t,t)
  136. n132=%rk = $replace(%rk,u,ⁿ)
  137. n133=%rk = $replace(%rk,v,v)
  138. n134=%rk = $replace(%rk,w,W)
  139. n135=%rk = $replace(%rk,x,╫)
  140. n136=%rk = $replace(%rk,y,Ñ)
  141. n137=%rk = $replace(%rk,z,z)
  142. n138=say %rk
  143. n139=unset %rk
  144. n140=}
  145. n141=/cht {
  146. n142=set %rk *1
  147. n143=%rk = $replace(%rk,a,1σ)
  148. n144=%rk = $replace(%rk,b,3▀)
  149. n145=%rk = $replace(%rk,c,4⌐)
  150. n146=%rk = $replace(%rk,d,6╨)
  151. n147=%rk = $replace(%rk,e,12Ω)
  152. n148=%rk = $replace(%rk,f,13f)
  153. n149=%rk = $replace(%rk,g,14g)
  154. n150=%rk = $replace(%rk,h,15h)
  155. n151=%rk = $replace(%rk,i,1∩)
  156. n152=%rk = $replace(%rk,j,3j)
  157. n153=%rk = $replace(%rk,k,4K)
  158. n154=%rk = $replace(%rk,l,6ú)
  159. n155=%rk = $replace(%rk,m,12m)
  160. n156=%rk = $replace(%rk,n,13±)
  161. n157=%rk = $replace(%rk,o,14≡)
  162. n158=%rk = $replace(%rk,p,1■)
  163. n159=%rk = $replace(%rk,q,3q)
  164. n160=%rk = $replace(%rk,r,4«)
  165. n161=%rk = $replace(%rk,s,6º)
  166. n162=%rk = $replace(%rk,t,12t)
  167. n163=%rk = $replace(%rk,u,13ⁿ)
  168. n164=%rk = $replace(%rk,v,14v)
  169. n165=%rk = $replace(%rk,w,15W)
  170. n166=%rk = $replace(%rk,x,1╫)
  171. n167=%rk = $replace(%rk,y,3Ñ)
  172. n168=%rk = $replace(%rk,z,4z)
  173. n169=say %rk
  174. n170=unset %rk
  175. n171=}
  176. n172=/co {
  177. n173=set %rk *1
  178. n174=%rk = $replace(%rk,a,1a)
  179. n175=%rk = $replace(%rk,b,3b)
  180. n176=%rk = $replace(%rk,c,4c)
  181. n177=%rk = $replace(%rk,d,6d)
  182. n178=%rk = $replace(%rk,e,12e)
  183. n179=%rk = $replace(%rk,f,13f)
  184. n180=%rk = $replace(%rk,g,14g)
  185. n181=%rk = $replace(%rk,h,15h)
  186. n182=%rk = $replace(%rk,i,1i)
  187. n183=%rk = $replace(%rk,j,3j)
  188. n184=%rk = $replace(%rk,k,4k)
  189. n185=%rk = $replace(%rk,l,6l)
  190. n186=%rk = $replace(%rk,m,12m)
  191. n187=%rk = $replace(%rk,n,13n)
  192. n188=%rk = $replace(%rk,o,14o)
  193. n189=%rk = $replace(%rk,p,1p)
  194. n190=%rk = $replace(%rk,q,3q)
  195. n191=%rk = $replace(%rk,r,4r)
  196. n192=%rk = $replace(%rk,s,6s)
  197. n193=%rk = $replace(%rk,t,12t)
  198. n194=%rk = $replace(%rk,u,13u)
  199. n195=%rk = $replace(%rk,v,14v)
  200. n196=%rk = $replace(%rk,w,15w)
  201. n197=%rk = $replace(%rk,x,1x)
  202. n198=%rk = $replace(%rk,y,3y)
  203. n199=%rk = $replace(%rk,z,4z)
  204. n200=say %rk
  205. n201=unset %rk
  206. n202=}
  207. n203=/cc //say $bfctxt( *1)
  208. n204=bfctxt {
  209. n205=set %txt1 *1
  210. n206=set %plc1 0 | set %txt4 "" | set %rand1 "" | set %rand2 "" | set %len $len(%txt1)
  211. n207=:start
  212. n208=inc %plc1 1
  213. n209=if ($mid(%plc1,1,%txt1) == $chr(32)) { %txt4 = %txt4 $+ á | goto start }
  214. n210=%txt2 = $mid(%plc1,1,%txt1)
  215. n211=:rand
  216. n212=%rand1 = $rand(1,15) | %rand2 = $rand(1,15)
  217. n213=if (%rand1 == %rand2) { goto rand }
  218. n214=elseif (((%rand1 == 3) && (%rand2 == 10)) || ((%rand1 == 10) && (%rand2 == 3))) { goto rand }
  219. n215=elseif (((%rand1 == 3) && (%rand2 == 14)) || ((%rand1 == 14) && (%rand2 == 3))) { goto rand }
  220. n216=elseif (((%rand1 == 4) && (%rand2 == 13)) || ((%rand1 == 13) && (%rand2 == 4))) { goto rand }
  221. n217=elseif (((%rand1 == 6) && (%rand2 == 12)) || ((%rand1 == 2) && (%rand2 == 12))) { goto rand }
  222. n218=elseif (((%rand1 <= 7) && (%rand2 <= 7)) || ((%rand1 >= 7) && (%rand2 >= 7))) { goto rand }
  223. n219=else {
  224. n220=  %txt3 =  $+ %rand1 $+ $chr(44) $+ %rand2 $+ %txt2
  225. n221=  %txt2 = $replace(%txt2,%txt2,%txt3)
  226. n222=  %txt4 = %txt4 $+ %txt2
  227. n223=  if (%plc1 >= %len) { set %len2 $len(%txt4) | %len2 = %len2 - 1 | unset %plc1 | unset %rand1 | unset %rand2 | unset %len | unset %txt1 | unset %txt2 | unset %txt3 | return $right(%len2,%txt4) $+  | unset %len2 | unset %txt4 | halt }
  228. n224=  else { goto start }
  229. n225=}
  230. n226=}
  231. n227=/bco {
  232. n228=set %rk *1
  233. n229=%rk = $replace(%rk,a,4a)
  234. n230=%rk = $replace(%rk,b,13b)
  235. n231=%rk = $replace(%rk,c,7c)
  236. n232=%rk = $replace(%rk,d,8d)
  237. n233=%rk = $replace(%rk,e,3e)
  238. n234=%rk = $replace(%rk,f,9f)
  239. n235=%rk = $replace(%rk,g,2g)
  240. n236=%rk = $replace(%rk,h,12h)
  241. n237=%rk = $replace(%rk,i,6i)
  242. n238=%rk = $replace(%rk,j,6j)
  243. n239=%rk = $replace(%rk,k,4k)
  244. n240=%rk = $replace(%rk,l,13l)
  245. n241=%rk = $replace(%rk,m,7m)
  246. n242=%rk = $replace(%rk,n,8n)
  247. n243=%rk = $replace(%rk,o,13o)
  248. n244=%rk = $replace(%rk,p,9p)
  249. n245=%rk = $replace(%rk,q,2q)
  250. n246=%rk = $replace(%rk,r,12r)
  251. n247=%rk = $replace(%rk,s,11s)
  252. n248=%rk = $replace(%rk,t,6t)
  253. n249=%rk = $replace(%rk,u,4u)
  254. n250=%rk = $replace(%rk,v,13v)
  255. n251=%rk = $replace(%rk,w,7w)
  256. n252=%rk = $replace(%rk,x,8x)
  257. n253=%rk = $replace(%rk,y,3y)
  258. n254=%rk = $replace(%rk,z,9z)
  259. n255=say %rk
  260. n256=unset %rk
  261. n257=}
  262. n258=}
  263. n259=---------------------------SCRIPTS (copy/paste into ALIASES)--------------------------------------------
  264. n260=;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx RAINBOW xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
  265. n261=/r {
  266. n262=set %i $replace(*1,$chr(32),á) | set %i $left(200,%i) | set %o $chr(3) $+ 4,1 | set %p 1 | set %c 1
  267. n263=:loop
  268. n264=set %o %o $+ $chr(3) $+ $token( %c , 38 , 4&7&8&9&11&13 ) $+ $mid(%p,1,%i) 
  269. n265=inc %p
  270. n266=if ( $mid(%p,1,%i) != á) { inc %c }
  271. n267=if ( %c > 6 ) { set %c 1 }
  272. n268=if ( $mid(%p,1,%i) != $null ) { goto loop }
  273. n269=say %o
  274. n270=unset %o %i %p %c
  275. n271=}
  276. n272=;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx BRICK xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
  277. n273=/brick { %num = 1 | unset %msg  | %msg =  | %color = p
  278. n274=:start
  279. n275=if %color == p { %num2 = 1 | %num3 = 4 | %color = y | goto add }
  280. n276=if %color == y  { %num2 = 4 | %num3 = 1 | %color = p | goto add }
  281. n277=:add
  282. n278=if $mid(%num,1, *1) != $null {
  283. n279=%msg = %msg $+   $+ %num2 $+ , $+  %num3 $+  $mid(%num, 1,*1) $+   
  284. n280=inc %num 
  285. n281=goto start  }
  286. n282=say %msg
  287. n283=}
  288. n284=;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx Coca Cola xxxxxxxxxxxxxxxxxxxxxxxxxxxx
  289. n285=/coke { %num = 1 | unset %msg  | %msg =  | %color = p
  290. n286=:start
  291. n287=if %color == p { %num2 = 0 | %num3 = 4 | %color = y | goto add }
  292. n288=if %color == y  { %num2 = 4 | %num3 = 0 | %color = p | goto add }
  293. n289=:add
  294. n290=if $mid(%num,1, *1) != $null {
  295. n291=%msg = %msg $+   $+ %num2 $+ , $+  %num3 $+  $mid(%num, 1,*1) $+   
  296. n292=inc %num 
  297. n293=goto start  }
  298. n294=say %msg
  299. n295=}
  300. n296=;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx X-MAS xxxxxxxxxxxxxxxxxxxxxxxxxxxx
  301. n297=/xmas { %num = 1 | unset %msg  | %msg =  | %color = p
  302. n298=:start
  303. n299=if %color == p { %num2 = 3 | %num3 = 4 | %color = y | goto add }
  304. n300=if %color == y  { %num2 = 4 | %num3 = 3 | %color = p | goto add }
  305. n301=:add
  306. n302=if $mid(%num,1, *1) != $null {
  307. n303=%msg = %msg $+   $+ %num2 $+ , $+  %num3 $+  $mid(%num, 1,*1) $+   
  308. n304=inc %num 
  309. n305=goto start  }
  310. n306=say %msg
  311. n307=}
  312. n308=;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx Mo xxxxxxxxxxxxxxxxxxxxxxxxxxxx
  313. n309=/blue { %num = 1 | unset %msg  | %msg =  | %color = p
  314. n310=:start
  315. n311=if %color == p { %num2 = 0 | %num3 = 12 | %color = y | goto add }
  316. n312=if %color == y  { %num2 = 12 | %num3 = 0 | %color = p | goto add }
  317. n313=:add
  318. n314=if $mid(%num,1, *1) != $null {
  319. n315=%msg = %msg $+   $+ %num2 $+ , $+  %num3 $+  $mid(%num, 1,*1) $+   
  320. n316=inc %num 
  321. n317=goto start  }
  322. n318=say %msg
  323. n319=}
  324. n320=;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx Mo xxxxxxxxxxxxxxxxxxxxxxxxxxxx
  325. n321=/pink { %num = 1 | unset %msg  | %msg =  | %color = p
  326. n322=:start
  327. n323=if %color == p { %num2 = 0 | %num3 = 13 | %color = y | goto add }
  328. n324=if %color == y  { %num2 = 13 | %num3 = 0 | %color = p | goto add }
  329. n325=:add
  330. n326=if $mid(%num,1, *1) != $null {
  331. n327=%msg = %msg $+   $+ %num2 $+ , $+  %num3 $+  $mid(%num, 1,*1) $+   
  332. n328=inc %num 
  333. n329=goto start  }
  334. n330=say %msg
  335. n331=}
  336. n332=;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx Mo xxxxxxxxxxxxxxxxxxxxxxxxxxxx
  337. n333=/green { %num = 1 | unset %msg  | %msg =  | %color = p
  338. n334=:start
  339. n335=if %color == p { %num2 = 0 | %num3 = 9 | %color = y | goto add }
  340. n336=if %color == y  { %num2 = 9 | %num3 = 0 | %color = p | goto add }
  341. n337=:add
  342. n338=if $mid(%num,1, *1) != $null {
  343. n339=%msg = %msg $+   $+ %num2 $+ , $+  %num3 $+  $mid(%num, 1,*1) $+   
  344. n340=inc %num 
  345. n341=goto start  }
  346. n342=say %msg
  347. n343=}
  348. n344=;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx Mo xxxxxxxxxxxxxxxxxxxxxxxxxxxx
  349. n345=/yellow { %num = 1 | unset %msg  | %msg =  | %color = p
  350. n346=:start
  351. n347=if %color == p { %num2 = 1 | %num3 = 8 | %color = y | goto add }
  352. n348=if %color == y  { %num2 = 8 | %num3 = 1 | %color = p | goto add }
  353. n349=:add
  354. n350=if $mid(%num,1, *1) != $null {
  355. n351=%msg = %msg $+   $+ %num2 $+ , $+  %num3 $+  $mid(%num, 1,*1) $+   
  356. n352=inc %num 
  357. n353=goto start  }
  358. n354=say %msg
  359. n355=}
  360. n356=/ct {
  361. n357=%c = *1
  362. n358=set %c $replace(%c,a,4a)
  363. n359=set %c $replace(%c,b,3B)
  364. n360=set %c $replace(%c,c,6C) 
  365. n361=set %c $replace(%c,d,7D) 
  366. n362=set %c $replace(%c,e,4e) 
  367. n363=set %c $replace(%c,f,12F) 
  368. n364=set %c $replace(%c,g,13G) 
  369. n365=set %c $replace(%c,h,6H) 
  370. n366=set %c $replace(%c,i,4i) 
  371. n367=set %c $replace(%c,j,J) 
  372. n368=set %c $replace(%c,k,3K) 
  373. n369=set %c $replace(%c,l,L) 
  374. n370=set %c $replace(%c,m,4M) 
  375. n371=set %c $replace(%c,n,6N)
  376. n372=set %c $replace(%c,o,4o) 
  377. n373=set %c $replace(%c,p,12P) 
  378. n374=set %c $replace(%c,q,Q) 
  379. n375=set %c $replace(%c,r,13R) 
  380. n376=set %c $replace(%c,s,7S) 
  381. n377=set %c $replace(%c,t,T) 
  382. n378=set %c $replace(%c,u,4u) 
  383. n379=set %c $replace(%c,v,V) 
  384. n380=set %c $replace(%c,w,12W) 
  385. n381=set %c $replace(%c,x,7X) 
  386. n382=set %c $replace(%c,y,Y) 
  387. n383=set %c $replace(%c,z,6z) 
  388. n384=set %c $replace(%c,?,12┐15?) 
  389. n385=say %c
  390. n386=unset %c
  391. n387=}
  392. n388=/f3 /msg w@channels2.undernet.org login #worldchat helpme
  393. n389=/hug /me 12,13 {{{{{{{{{{{{{{{{{ $$1 }}}}}}}}}}}}}}}}}}
  394. n390=/hi /me 12 says HELLO to $$1
  395. n391=/mine /me 12,1{*{4,1{*{8,1{*{9,1{*{11,1{*{13,1{*{8 $$1 13,1 }*}11,1}*}9,1}*}8,1}*}4,1}*}12,1}*}
  396. n392=/Tx /me 8,3@<-@<-@<- 8,3 $$1 8,3 @<-@<-@<- Yellow Roses from Texas :)
  397. n393=/e {  
  398. n394=%text = $replace(*1,a,Γ)
  399. n395=%text = $replace(%text,A,├)
  400. n396=%text = $replace(%text,b,▀)
  401. n397=%text = $replace(%text,ae,µ)
  402. n398=%text = $replace(%text,c,⌐)
  403. n399=%text = $replace(%text,C,⌐)
  404. n400=%text = $replace(%text,d,╨)
  405. n401=%text = $replace(%text,e, δ)
  406. n402=%text = $replace(%text,E, δ)
  407. n403=%text = $replace(%text,i,φ)
  408. n404=%text = $replace(%text,l,ú)
  409. n405=%text = $replace(%text,n, ±)
  410. n406=%text = $replace(%text,o,°)
  411. n407=%text = $replace(%text,O,÷)
  412. n408=%text = $replace(%text,p,╢)
  413. n409=%text = $replace(%text,w,\\')
  414. n410=%text = $replace(%text,W,ñ)
  415. n411=%text = $replace(%text,f,f)
  416. n412=%text = $replace(%text,F,f)
  417. n413=%text = $replace(%text,cks,X)
  418. n414=%text = $replace(%text,r,«)
  419. n415=%text = $replace(%text,s,º )
  420. n416=%text = $replace(%text,t,t)
  421. n417=%text = $replace(%text,T,▒)
  422. n418=%text = $replace(%text,u,√)
  423. n419=%text = $replace(%text,U,╡)
  424. n420=%text = $replace(%text,y,Ñ)
  425. n421=%text = $replace(%text,?,┐)
  426. n422=%text = $replace(%text,z,░z░)
  427. n423=%text = $replace(%text,^,½)
  428. n424=%text = $replace(%text,!,í)
  429. n425=/say %text 
  430. n426=}
  431. n427=elite {
  432. n428=if *1 == $null {
  433. n429=echo ELITE command.  Usage: /ELITE <text>
  434. n430=}
  435. n431=if ($1 == -me) { set %elitetext *2 | goto go }
  436. n432=if ($1 == -t) { set %elitetext *2 | goto go }
  437. n433=if (-n isin $1) { set %elitetext *2 | goto go }
  438. n434=else { set %elitetext *1 | goto go }
  439. n435=:go
  440. n436=set %elitetext $replace(%elitetext,<,½) | set %elitetext $replace(%elitetext,>,╗)
  441. n437=set %lenotext $len(%elitetext)
  442. n438=%i = 0
  443. n439=%nothing = $chr(32)
  444. n440=set %elitefinal á
  445. n441=:nextlet
  446. n442=inc %i
  447. n443=if %i > %lenotext {
  448. n444=%lenofinal = $len(%elitefinal)
  449. n445=dec %lenofinal
  450. n446=%elitefinal = $right(%lenofinal,%elitefinal)
  451. n447=set %elitefinal $replace(%elitefinal,{▀}, ░HφgH ╓rdΩR░)
  452. n448=if ($1 == -me) { me %elitefinal | halt }
  453. n449=if ($1 == -t) { topic # %elitefinal | halt }
  454. n450=if (-n isin $1) { 
  455. n451=set %totlen $len($1)
  456. n452=%totlen = %totlen - 2
  457. n453=%nickchan = $right(%totlen,$1)
  458. n454=notice %nickchan %elitefinal 
  459. n455=halt 
  460. n456=}  
  461. n457=else { say %elitefinal | halt }
  462. n458=halt
  463. n459=}
  464. n460=%thislet = $mid(%i,1,%elitetext)
  465. n461=if %thislet == A { set %thislet $replace(%thislet,%thislet,$token($rand(1,13),46,%a)) | set %elitefinal %elitefinal $+ %thislet | goto nextlet }
  466. n462=if %thislet == B { set %thislet $replace(%thislet,%thislet,$token($rand(1,13),46,%b)) | set %elitefinal %elitefinal $+ %thislet | goto nextlet }
  467. n463=if %thislet == C { set %thislet $replace(%thislet,%thislet,$token($rand(1,13),46,%c)) | set %elitefinal %elitefinal $+ %thislet | goto nextlet }
  468. n464=if %thislet == D { set %thislet $replace(%thislet,%thislet,$token($rand(1,13),46,%d)) | set %elitefinal %elitefinal $+ %thislet | goto nextlet }
  469. n465=if %thislet == E { set %thislet $replace(%thislet,%thislet,$token($rand(1,13),46,%e)) | set %elitefinal %elitefinal $+ %thislet | goto nextlet }
  470. n466=if %thislet == F { set %thislet $replace(%thislet,%thislet,$token($rand(1,13),46,%f)) | set %elitefinal %elitefinal $+ %thislet | goto nextlet }
  471. n467=if %thislet == G { set %thislet $replace(%thislet,%thislet,$token($rand(1,13),46,%g)) | set %elitefinal %elitefinal $+ %thislet | goto nextlet }
  472. n468=if %thislet == H { set %thislet $replace(%thislet,%thislet,$token($rand(1,13),46,%h)) | set %elitefinal %elitefinal $+ %thislet | goto nextlet }
  473. n469=if %thislet == I { set %thislet $replace(%thislet,%thislet,$token($rand(1,13),46,%eliti)) | set %elitefinal %elitefinal $+ %thislet | goto nextlet }
  474. n470=if %thislet == J { set %thislet $replace(%thislet,%thislet,$token($rand(1,13),46,%j)) | set %elitefinal %elitefinal $+ %thislet | goto nextlet }
  475. n471=if %thislet == K { set %thislet $replace(%thislet,%thislet,$token($rand(1,13),46,%k)) | set %elitefinal %elitefinal $+ %thislet | goto nextlet }
  476. n472=if %thislet == L { set %thislet $replace(%thislet,%thislet,$token($rand(1,13),46,%l)) | set %elitefinal %elitefinal $+ %thislet | goto nextlet }
  477. n473=if %thislet == M { set %thislet $replace(%thislet,%thislet,$token($rand(1,13),46,%m)) | set %elitefinal %elitefinal $+ %thislet | goto nextlet }
  478. n474=if %thislet == N { set %thislet $replace(%thislet,%thislet,$token($rand(1,13),46,%n)) | set %elitefinal %elitefinal $+ %thislet | goto nextlet }
  479. n475=if %thislet == O { set %thislet $replace(%thislet,%thislet,$token($rand(1,13),46,%o)) | set %elitefinal %elitefinal $+ %thislet | goto nextlet }
  480. n476=if %thislet == P { set %thislet $replace(%thislet,%thislet,$token($rand(1,13),46,%p)) | set %elitefinal %elitefinal $+ %thislet | goto nextlet }
  481. n477=if %thislet == Q { set %thislet $replace(%thislet,%thislet,$token($rand(1,13),46,%q)) | set %elitefinal %elitefinal $+ %thislet | goto nextlet }
  482. n478=if %thislet == R { set %thislet $replace(%thislet,%thislet,$token($rand(1,13),46,%r)) | set %elitefinal %elitefinal $+ %thislet | goto nextlet }
  483. n479=if %thislet == S { set %thislet $replace(%thislet,%thislet,$token($rand(1,13),46,%s)) | set %elitefinal %elitefinal $+ %thislet | goto nextlet }
  484. n480=if %thislet == T { set %thislet $replace(%thislet,%thislet,$token($rand(1,13),46,%t)) | set %elitefinal %elitefinal $+ %thislet | goto nextlet }
  485. n481=if %thislet == U { set %thislet $replace(%thislet,%thislet,$token($rand(1,13),46,%u)) | set %elitefinal %elitefinal $+ %thislet | goto nextlet }
  486. n482=if %thislet == V { set %thislet $replace(%thislet,%thislet,$token($rand(1,13),46,%v)) | set %elitefinal %elitefinal $+ %thislet | goto nextlet }
  487. n483=if %thislet == W { set %thislet $replace(%thislet,%thislet,$token($rand(1,13),46,%w)) | set %elitefinal %elitefinal $+ %thislet | goto nextlet }
  488. n484=if %thislet == X { set %thislet $replace(%thislet,%thislet,$token($rand(1,13),46,%x)) | set %elitefinal %elitefinal $+ %thislet | goto nextlet }
  489. n485=if %thislet == Y { set %thislet $replace(%thislet,%thislet,$token($rand(1,13),46,%y)) | set %elitefinal %elitefinal $+ %thislet | goto nextlet }
  490. n486=if %thislet == Z { set %thislet $replace(%thislet,%thislet,$token($rand(1,13),46,%z)) | set %elitefinal %elitefinal $+ %thislet | goto nextlet }
  491. n487=if %thislet == %nothing { set %thislet á | set %elitefinal %elitefinal $+ %thislet | goto nextlet }
  492. n488=else {
  493. n489=set %thislet $replace(%thislet,%thislet,%thislet)
  494. n490=set %elitefinal %elitefinal $+ %thislet
  495. n491=goto nextlet
  496. n492=}
  497. n493=goto nextlet
  498. n494=}
  499. n495=leet {
  500. n496=%leettext = $upper(*1)
  501. n497=%leettext = $replace(%leettext,A,a)
  502. n498=%leettext = $replace(%leettext,E,e)
  503. n499=%leettext = $replace(%leettext,I,i)
  504. n500=%leettext = $replace(%leettext,O,o)
  505. n501=%leettext = $replace(%leettext,U,u)
  506. n502=%leettext = $replace(%leettext,Y,y)
  507. n503=say %leettext
  508. n504=}
  509. n505=backwards {
  510. n506=unset %backtext
  511. n507=if ($1 == -d) { 
  512. n508=set %backtext ºá
  513. n509=set %text $remove(*1,$left(3,*1))
  514. n510=}
  515. n511=else { %text = *1 }
  516. n512=%space = $chr(32)
  517. n513=%i = $len(%text) + 1
  518. n514=:next
  519. n515=dec %i 1
  520. n516=if %i == 0 { say %backtext | halt }
  521. n517=%thischar = $mid(%i,1,%text)
  522. n518=if %thischar == %space {
  523. n519=%thislet = á
  524. n520=if %backtext == $null { set %backtext %thislet | goto next }
  525. n521=else { set %backtext %backtext $+ %thislet | goto next }
  526. n522=}
  527. n523=if %backtext == $null { set %backtext %thischar | goto next }
  528. n524=else { set %backtext %backtext $+ %thischar | goto next }
  529. n525=}
  530. n526=upvowels {
  531. n527=%uptext = $lower(*1)
  532. n528=%uptext = $replace(%uptext,a,A)
  533. n529=%uptext = $replace(%uptext,E,E)
  534. n530=%uptext = $replace(%uptext,I,I)
  535. n531=%uptext = $replace(%uptext,O,O)
  536. n532=%uptext = $replace(%uptext,U,U)
  537. n533=%uptext = $replace(%uptext,Y,Y)
  538. n534=say %uptext
  539. n535=}
  540. n536=kewltalk {
  541. n537=set %text $upper(*1)
  542. n538=set %text $replace(%text,W,\/\/)
  543. n539=set %text $replace(%text,I,1)
  544. n540=set %text $replace(%text,O,0)
  545. n541=set %text $replace(%text,T,+)
  546. n542=set %text $replace(%text,U,|_|)
  547. n543=set %text $replace(%text,M,/\/\)
  548. n544=set %text $replace(%text,N,|\|)
  549. n545=set %text $replace(%text,C,<)
  550. n546=set %text $replace(%text,L,|_)
  551. n547=set %text $replace(%text,K,]{)
  552. n548=set %text $replace(%text,V,\/)
  553. n549=set %text $replace(%text,A,/-\)
  554. n550=set %text $replace(%text,H,|-|)
  555. n551=say %text
  556. n552=}
  557. n553=/checkidle {
  558. n554=if ($away == $true) goto end
  559. n555=if ($idle >= %autosecs) {
  560. n556=Echo 4 -a AutoAway Set after %automins minute(s) Idle time
  561. n557=Away Autoaway After %automins minute(s) Idle time
  562. n558=}
  563. n559=/ctext {
  564. n560=;  %clrlist is the array of colors it will cycle through for FOREGROUND
  565. n561=;  %altclrlist is another array that will cycle in sync with %clrlist  - for BACKGROUND
  566. n562=;  (both arrays should have same amount of chars seperated with *s)
  567. n563=;  type /ctext <the text>
  568. n564=%clrlist = 1*1*1*1*1*1 
  569. n565=%altclrlist = 16*8*10*11*9*15
  570. n566=%fnl = ""
  571. n567=%txt = $replace(*1,$chr(32),$chr(1))
  572. n568=%clr = 1
  573. n569=%i = 1
  574. n570=:start
  575. n571=if ($mid(%i,1,%txt) != $null) {
  576. n572=if ($token(%clr,42,%clrlist) == $null) { %clr = 1 }
  577. n573=%fnl = %fnl $+ $chr(3) $+ $token(%clr,42,%clrlist) $+ , $+ $token(%clr,42,%altclrlist) $+ $mid(%i,1,%txt)
  578. n574=inc %clr 1
  579. n575=inc %i 1
  580. n576=goto start
  581. n577=}
  582. n578=say $replace(%fnl,$chr(1),$chr(32))
  583. n579=}
  584. n580=/rtext {
  585. n581=;  %clrlist is the array of colors it will cycle through for FOREGROUND
  586. n582=;  %altclrlist is another array that will cycle in sync with %clrlist  - for BACKGROUND
  587. n583=;  (both arrays should have same amount of chars seperated with *s)
  588. n584=;  type /ctext <the text>
  589. n585=%clrlist = 2*3*14*4*13*5*12*6*2*7*10*2*4
  590. n586=%altclrlist = 16*16*16*16*16*16*16*16*16*16*16*16*16
  591. n587=%fnl = ""
  592. n588=%txt = $replace(*1,$chr(32),$chr(1))
  593. n589=%clr = 1
  594. n590=%i = 1
  595. n591=:start
  596. n592=if ($mid(%i,1,%txt) != $null) {
  597. n593=if ($token(%clr,42,%clrlist) == $null) { %clr = 1 }
  598. n594=%fnl = %fnl $+ $chr(3) $+ $token(%clr,42,%clrlist) $+ , $+ $token(%clr,42,%altclrlist) $+ $mid(%i,1,%txt)
  599. n595=inc %clr 1
  600. n596=inc %i 1
  601. n597=goto start
  602. n598=}
  603. n599=say $replace(%fnl,$chr(1),$chr(32))
  604. n600=}
  605. n601=backwards {
  606. n602=unset %backtext
  607. n603=if ($1 == -d) { 
  608. n604=set %backtext ºá
  609. n605=set %text $remove(*1,$left(3,*1))
  610. n606=}
  611. n607=else { %text = *1 }
  612. n608=%space = $chr(32)
  613. n609=%i = $len(%text) + 1
  614. n610=:next
  615. n611=dec %i 1
  616. n612=if %i == 0 { say %backtext | halt }
  617. n613=%thischar = $mid(%i,1,%text)
  618. n614=if %thischar == %space {
  619. n615=%thislet = á
  620. n616=if %backtext == $null { set %backtext %thislet | goto next }
  621. n617=else { set %backtext %backtext $+ %thislet | goto next }
  622. n618=}
  623. n619=if %backtext == $null { set %backtext %thischar | goto next }
  624. n620=else { set %backtext %backtext $+ %thischar | goto next }
  625. n621=}
  626. n622=load {
  627. n623=if (%ver == $null) {
  628. n624=echo 4 $active This is a non-compliant script, load failed.
  629. n625=halt
  630. n626=}
  631. n627=elseif (( $right(5,$1) == .mirc ) || ( $right(4,$1) == .mir )) {
  632. n628=play -c $me $mircdir $+ addon\ $+ $1 0
  633. n629=goto end
  634. n630=}
  635. n631=else /load $1 $2
  636. n632=}
  637. n633=else {
  638. n634=echo 4 $active Unsupported extension, load failed.
  639. n635=}
  640. n636=:end
  641. n637=}
  642. n638=/poll {
  643. n639=/set %yes 0
  644. n640=/set %no 0
  645. n641=/set %totalvoters 0
  646. n642=/set %question $$?="Enter the question:"  
  647. n643=/enable #polls 
  648. n644=/msg # The PoLLs ArE oPeN The question is ====> 
  649. n645=/msg # [ $+ %question $+ ]
  650. n646=/msg #  Type "!yes" for yes and "!no" for no 
  651. n647=/msg # the polls will close in 2 mins....... 
  652. n648=.timer 1 60 /say Only 60 sec Left To Vote %popver (!yes or !no)
  653. n649=.timer 1 120 /polloff
  654. n650=}
  655. n651=/polloff {
  656. n652=/disable #polls
  657. n653=/set %yes %yes * 100
  658. n654=/set %yes %yes / %totalvoters
  659. n655=/set %no %no * 100
  660. n656=/set %no %no / %totalvoters
  661. n657=/set %totalvoters %totalvoters * 100
  662. n658=/set %totalvoters %totalvoters / $nick(0,#)
  663. n659=/msg # voting is now closed..the votes are being counted..
  664. n660=/msg # %totalvoters $+ % of the users on # voted on =========>[ $+ %question $+ ]<=========
  665. n661=/msg # of that %totalvoters $+ % =YeS's= %yes $+ % and  =No'S= %no $+ %
  666. n662=if (%yes > %no) goto yes
  667. n663=if (%yes < %no) goto no
  668. n664=if (%yes = %no) goto equal
  669. n665=:yes
  670. n666=/msg # MaJoriTY VoTeD YeS!!!! 
  671. n667=goto end
  672. n668=:no
  673. n669=/msg # MaJoriTY VoTeD No!!!! 
  674. n670=goto end
  675. n671=:equal
  676. n672=/msg # THeRe'S a LocK UP!!!! 
  677. n673=:end
  678. n674=/unset %no 
  679. n675=/unset %yes 
  680. n676=/unset %notagain
  681. n677=/unset %totalvoters
  682. n678=}
  683. n679=remflood {
  684. n680=  if (($1 == $null) || ($2 == $null)) { echo Insufficiant parameters, you don't gotta do this anyways... | halt }
  685. n681=  set %flood $+ $1 $remove(%flood $+ $$1,$2)
  686. n682=}
  687. n683=remchan {
  688. n684=  if (($1 == $null) || ($2 == $null)) { echo Insufficiant parameters, you don't gotta do this anyways... | halt }
  689. n685=  set %chan $+ $1 $remove(%chan $+ $$1,$2)
  690. n686=}
  691. n687=remswer {
  692. n688=  if (($1 == $null) || ($2 == $null)) { echo Insufficiant parameters, you don't gotta do this anyways... | halt }
  693. n689=  set %swer $+ $1 $remove(%swer $+ $$1,$2)
  694. n690=}
  695. n691=remrepeat {
  696. n692=  if (($1 == $null) || ($2 == $null)) { echo Insufficiant parameters, you don't gotta do this anyways... | halt }
  697. n693=  set %repeat $+ $1 $remove(%repeat $+ $$1,$2)
  698. n694=}
  699. n695=rempriv {
  700. n696=  if (($1 == $null) || ($2 == $null)) { echo Insufficiant parameters, you don't gotta do this anyways... | halt }
  701. n697=  set %priv $+ $1 $remove(%priv $+ $$1,$2)
  702. n698=}
  703.